($PR
($BL
( $FVAR F PUNKT ALTP )
( $VVAR V1 V2 )
( $VVAR V )
( $SVAR EINAUS )
( $SVAR CODE X Y Z WERT )
( $SVAR FZAHL CZAHL SZAHL GRENZE )
( $ARAY $FVAR FLISTE ( 1.000000 25.00000 ))
( $ARAY $SVAR BCODE ( 1.000000 25.00000 ))
( $ARAY $SVAR SLISTE ( 1.000000 25.00000 ))
( $SVAR DS )
(
$PROC XYZWERT
(($SVAR X Y Z ))
($BL
( $PRINT
" *** X:"
)
( $AS X
($SCALRD)
)
( $PRINT
" *** Y:"
)
( $AS Y
($SCALRD)
)
( $PRINT
" *** Z:"
)
( $AS Z
($SCALRD)
)
)
)
(
$PROC XYZAUS
(($VVAR V ))
( $PRINT
" X= "
( $SMUL ( $VDOT V XHAT) 2.500000 )
" Y= "
( $SMUL ( $VDOT V YHAT) 2.500000 )
" Z= "
( $SMUL ( $VDOT V ZHAT) 2.500000 )
"
"
)
)
($SPEED_FACTOR 3.000000 )
( $AS GRENZE
25.00000
)
( $AS X
20.00000
)
( $AS Y
30.00000
)
( $AS Z
7.000000
)
( $AS FZAHL
1.000000
)
( $AS CZAHL
1.000000
)
( $AS SZAHL
1.000000
)
( $PRINT
"
"
" INTERAKT. BEDIENPROGR. : "
"
"
)
($MO BARM
BPARK
($DURATION =
( $SMUL 4.000000 SEC)
)
)
( $AS ALTP
BARM
)
( $AS PUNKT
BARM
)
( $AS EINAUS
TRUE
)
($WH
EINAUS
($BL
( $PRINT
"
"
"0 ARM AUS"
"
"
"1 ARM EIN"
"
"
"2 OPEN"
"
"
)
( $PRINT
"3 CLOSE"
"
"
"4 CENTER"
"
"
"5 AKTION"
"
"
"6 LOESCH"
"
"
)
( $PRINT
"8 V.V"
"
"
"9 V*V"
"
"
"10 F*V"
"
"
)
( $PRINT
"12 BPARK"
"
"
"13 *** ENDE"
"
"
)
( $AS CODE
($SCALRD)
)
( $AS V
( $POS PUNKT)
)
($IF
( $OR ( $OR ( $SGT FZAHL GRENZE) ( $SGT CZAHL GRENZE)) ( $SGT SZAHL GRENZE))
($BL
( $AS FZAHL
1.000000
)
( $AS CZAHL
1.000000
)
( $AS SZAHL
1.000000
)
)
)
($CASE
CODE
.0000000
( $CALL XYZAUS V)
1.000000
($BL
( $CALL XYZWERT X Y Z)
( $AS V
( $SVMUL CM ( $VMAKE X Y Z))
)
( $AS PUNKT
( $FMAKE ( $ORIENT ALTP) V)
)
( $AS ALTP
PUNKT
)
($MO BARM
PUNKT
($ARRIVAL NILDEPROACH)
($DEPARTURE NILDEPROACH)
($NNULL -)
)
( $AS ($AREF FLISTE FZAHL)
PUNKT
)
( $AS FZAHL
( $SADD FZAHL 1.000000 )
)
( $AS ($AREF BCODE CZAHL)
1.000000
)
( $AS CZAHL
( $SADD CZAHL 1.000000 )
)
)
2.000000
($BL
( $PRINT
" WERT:"
)
( $AS WERT
($SCALRD)
)
( $AS DS
( $SMUL WERT CM)
)
($MO BHAND
DS
)
( $AS ($AREF SLISTE SZAHL)
DS
)
( $AS SZAHL
( $SADD SZAHL 1.000000 )
)
( $AS ($AREF BCODE CZAHL)
2.000000
)
( $AS CZAHL
( $SADD CZAHL 1.000000 )
)
)
3.000000
( $PRINT
" NICHT IMPLEMENTIERT !"
)
4.000000
($BL
($CENTER BARM)
( $AS ($AREF BCODE CZAHL)
3.000000
)
( $AS CZAHL
( $SADD CZAHL 1.000000 )
)
)
5.000000
($BL
( $SVAR I K L M )
( $AS K
1.000000
)
( $AS L
1.000000
)
( $AS M
1.000000
)
($MO BARM
BPARK
($DURATION =
( $SMUL 6.000000 SEC)
)
)
($FO I
1.000000
1.000000
( $SSUB CZAHL 1.000000 )
($BL
($CASE
($AREF BCODE I)
1.000000
($BL
($MO BARM
($AREF FLISTE K)
($ARRIVAL NILDEPROACH)
($DEPARTURE NILDEPROACH)
)
( $AS K
( $SADD K 1.000000 )
)
)
2.000000
($BL
($MO BHAND
($AREF SLISTE L)
)
( $AS L
( $SADD L 1.000000 )
)
)
3.000000
($CENTER BARM)
-1
( $PRINT
"*** CODEFEHLER !"
"
"
)
)
)
)
)
6.000000
($BL
( $AS FZAHL
1.000000
)
( $AS CZAHL
1.000000
)
( $AS SZAHL
1.000000
)
( $PRINT
" AKTION GELOESCHT !"
"
"
)
)
8.000000
($BL
( $PRINT
" V.V: "
)
( $CALL XYZWERT X Y Z)
( $AS V1
( $VMAKE X Y Z)
)
( $CALL XYZWERT X Y Z)
( $AS V2
( $VMAKE X Y Z)
)
( $AS WERT
( $VDOT V1 V2)
)
( $PRINT
" *** V.V = "
WERT
"CRLF"
)
)
9.000000
($BL
( $PRINT
" V*V:"
"
"
)
( $CALL XYZWERT X Y Z)
( $AS V1
( $VMAKE X Y Z)
)
( $CALL XYZWERT X Y Z)
( $AS V2
( $VMAKE X Y Z)
)
( $AS V
( $SVMUL CM ( $VCROSS V1 V2))
)
( $PRINT
" *** V*V= "
)
( $CALL XYZAUS V)
)
10.00000
($BL
( $PRINT
" *** F*V: "
)
( $CALL XYZWERT X Y Z)
( $AS F
( $FMAKE NILROTN ( $SVMUL CM ( $VMAKE X Y Z)))
)
( $CALL XYZWERT X Y Z)
( $AS V2
( $VMAKE X Y Z)
)
( $AS V
( $TVMUL F V2)
)
( $PRINT
" *** F*V = "
)
( $CALL XYZAUS V)
)
8.000000
($MO BARM
BPARK
($DURATION =
( $SMUL 4.000000 SEC)
)
)
9.000000
( $AS EINAUS
FALSE
)
-1
( $PRINT
" FALSCHER CODE !"
"
"
"
"
)
)
)
)
($MO BARM
BPARK
($DURATION =
( $SMUL 4.000000 SEC)
)
)
( $PRINT
"
"
" ***** PROGRAMMENDE !"
"
"
)
)
)